home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q1099.dms / q1099.adf / MathPlot / Macros / test6.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-10  |  298b  |  18 lines
  1. /* Test of screentoback/front */
  2.  
  3. address "MPlot_ARexx"
  4. options results
  5.  
  6. if(~show('L','rexxsupport.library')) then do
  7.  if(~addlib('rexxsupport.library',0,-30,0) ) then do
  8.   say "ARexx-support-library not found"
  9.   exit 10
  10.  end
  11. end
  12.  
  13.  
  14. screentofront
  15. a=delay(150)
  16. screentoback
  17. a=delay(150)
  18. screentofront